(fortune-from-region): Use `eq' instead of `eql'.

diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el
index 0ae1a841f430fec57e7d8798d308f2cb42984b15..3ab616b9b314a2176943f8d6b7c93e182f44b19b 100644 (file)
--- a/lisp/play/fortune.el
+++ b/lisp/play/fortune.el
@@ -201,9 +201,9 @@ read the file name to use.  Otherwise use the value of `fortune-file'."
             (point-max) t))
       (if help-point
          (setq newsgroup (buffer-substring (match-beginning 1) help-point))
-       (setq newsgroup (if (or (eql major-mode 'gnus-article-mode)
-                               (eql major-mode 'vm-mode)
-                               (eql major-mode 'rmail-mode))
+       (setq newsgroup (if (or (eq major-mode 'gnus-article-mode)
+                               (eq major-mode 'vm-mode)
+                               (eq major-mode 'rmail-mode))
                            fortune-from-mail
                          "unknown"))))